﻿

Namespace Base




    Public Class Link
        Private mTitle As String = String.Empty
        Private mLink As Uri = Nothing
        Public ReadOnly Property Title As String
            Get
                Return mTitle
            End Get
        End Property
        Public ReadOnly Property Url As Uri
            Get
                Return mLink
            End Get
        End Property

        Public Sub New(ByVal title As String, ByVal lnk As Uri)
            mTitle = title
            mLink = lnk
        End Sub

        Public Overrides Function ToString() As String
            Return Me.Title
        End Function
    End Class

End Namespace